home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / program / vb_eliza.zip / ABOUT.FRM next >
Text File  |  1996-07-30  |  4KB  |  147 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "About ELIZA"
  6.    ClientHeight    =   2085
  7.    ClientLeft      =   2280
  8.    ClientTop       =   1695
  9.    ClientWidth     =   4260
  10.    ControlBox      =   0   'False
  11.    Height          =   2490
  12.    Left            =   2220
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2085
  17.    ScaleWidth      =   4260
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   1350
  20.    Width           =   4380
  21.    Begin VB.Timer Timer1 
  22.       Interval        =   1500
  23.       Left            =   240
  24.       Top             =   960
  25.    End
  26.    Begin VB.Shape Shape1 
  27.       Height          =   1335
  28.       Left            =   120
  29.       Top             =   120
  30.       Width           =   3855
  31.    End
  32.    Begin VB.Label Label1 
  33.       BackColor       =   &H00C0C0C0&
  34.       Caption         =   "Original ELIZA by Joseph Weizenbaum"
  35.       BeginProperty Font 
  36.          name            =   "MS Sans Serif"
  37.          charset         =   1
  38.          weight          =   700
  39.          size            =   9.75
  40.          underline       =   0   'False
  41.          italic          =   0   'False
  42.          strikethrough   =   0   'False
  43.       EndProperty
  44.       Height          =   255
  45.       Left            =   120
  46.       TabIndex        =   3
  47.       Top             =   1680
  48.       Width           =   4095
  49.    End
  50.    Begin VB.Image Image1 
  51.       Height          =   480
  52.       Left            =   240
  53.       Picture         =   "ABOUT.frx":0000
  54.       Top             =   240
  55.       Width           =   480
  56.    End
  57.    Begin VB.Label Label4 
  58.       BackColor       =   &H00C0C0C0&
  59.       Caption         =   "Version 1.0"
  60.       BeginProperty Font 
  61.          name            =   "MS Sans Serif"
  62.          charset         =   1
  63.          weight          =   700
  64.          size            =   9.75
  65.          underline       =   0   'False
  66.          italic          =   0   'False
  67.          strikethrough   =   0   'False
  68.       EndProperty
  69.       Height          =   255
  70.       Left            =   960
  71.       TabIndex        =   2
  72.       Top             =   960
  73.       Width           =   1335
  74.    End
  75.    Begin VB.Label Label3 
  76.       BackColor       =   &H00C0C0C0&
  77.       Caption         =   "The Computer Psychiatrist"
  78.       BeginProperty Font 
  79.          name            =   "MS Sans Serif"
  80.          charset         =   1
  81.          weight          =   700
  82.          size            =   9.75
  83.          underline       =   0   'False
  84.          italic          =   0   'False
  85.          strikethrough   =   0   'False
  86.       EndProperty
  87.       Height          =   255
  88.       Left            =   960
  89.       TabIndex        =   1
  90.       Top             =   600
  91.       Width           =   2775
  92.    End
  93.    Begin VB.Label Label2 
  94.       BackColor       =   &H00C0C0C0&
  95.       Caption         =   "ELIZA"
  96.       BeginProperty Font 
  97.          name            =   "MS Sans Serif"
  98.          charset         =   1
  99.          weight          =   700
  100.          size            =   9.75
  101.          underline       =   0   'False
  102.          italic          =   0   'False
  103.          strikethrough   =   0   'False
  104.       EndProperty
  105.       Height          =   255
  106.       Left            =   960
  107.       TabIndex        =   0
  108.       Top             =   240
  109.       Width           =   855
  110.    End
  111. End
  112. Attribute VB_Name = "frmAbout"
  113. Attribute VB_Creatable = False
  114. Attribute VB_Exposed = False
  115. Private Sub Form_Click()
  116.   CloseWindow
  117. End Sub
  118.  
  119. Private Sub Image1_Click()
  120.   CloseWindow
  121. End Sub
  122.  
  123. Private Sub Label1_Click()
  124.   CloseWindow
  125. End Sub
  126.  
  127. Private Sub Label2_Click()
  128.   CloseWindow
  129. End Sub
  130.  
  131. Private Sub Label3_Click()
  132.   CloseWindow
  133. End Sub
  134.  
  135. Private Sub Label4_Click()
  136.   CloseWindow
  137. End Sub
  138.  
  139. Private Sub Timer1_Timer()
  140.   CloseWindow
  141. End Sub
  142. Public Sub CloseWindow()
  143.   Unload frmAbout
  144.   Load frmMain
  145.   frmMain.Show
  146. End Sub
  147.